\begin{tabbing}
(\=RepUR ``p{-}compose can{-}apply do{-}apply `` ( 0)$\cdot$) \+
\\[0ex]CollapseTHEN ((Subst' ($f$\^{}$n$($x_{1}$))\=\+
\\[0ex]$\sim$
\\[0ex](\=$f$\^{}$n$ {-} 1\+
\\[0ex](outl($f$($x_{1}$)))) ( 
\-\-\-\\[0ex]0\=)$\cdot$) \+
\\[0ex]CollapseTHEN (((Try (Trivial))$\cdot$) 
\\[0ex]CollapseTHEN ((Fold `do{-}apply` 0) 
\\[0ex]
\\[0ex]CollapseTHEN ((RWO "p{-}fun{-}exp{-}add1{-}sq$<$" 0) 
\\[0ex]CollapseTHENA (Auto$\cdot$)$\cdot$)$\cdot$)$\cdot$)$\cdot$)$\cdot$
\-
\end{tabbing}